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5.1  INTRODUCTION 

5.1.1  Description 

This  supplemental  document  describes  the  Level  I  Ada  Interface  for  the  RTEMS 
real-time  executive  for  the  Telesoft  Ada  Motorola  68020  cross-compiler.  This 
document  describes  the  Ada  calling  sequence  of  each  RTEMS  directive.  In 
addition,  an  appendix  to  this  document  contains  the  package  specification  for 
the  RTEMS  interface  package.  For  more  detailed  information  regarding  the 
exact  operation  of  each  directive  and  its  arguments  as  well  as  related  constants 
and  data  structures,  please  refer  to  the  RTEMS  User’s  Guide  for  a  description 
of  that  directive  and  manager. 

RTEMS  Ada  application  developers  should  be  aware  of  the  following: 

•  AS  ENTER,  AS  RETURN,  I  ENTER,  and  I  RETURN  are 
not  accessible  from  an  Ada  program.  They  can  only  be  accessed 
through  assembly  language  routines. 

•  If  the  application  has  more  than  one  entry  in  the  Initialization 
Task  Table  or  the  Device  Driver  Table,  then  an  array  of  table 
entries  should  be  declared.  If  there  is  only  one  entry,  then  a 
simple  constant  record  declaration  will  suffice.  In  either  case, 
the  address  of  the  initialized  table  must  be  placed  in  the 
Configuration  Table. 

5.1 .2  Packages 

The  RTEMS  Ada  language  interface  provides  two  classes  of  packages  to  the 
application  developer.  The  first  is  the  package  which  provides  access  to  RTEMS 
facilities.  The  second  class  of  packages  provides  routines  commonly  needed  by 
embedded  applications. 

5.1 .3  RTEMS  Package 

RTEMS  is  distributed  as  a  single  Ada  package,  RTEMS,  and  a  single  object 
module,  RTEMS  CORE.  RTEMS  resources  are  made  available  to  Ada 
compilation  units  by  referencing  these  resources  using  a  with  clause  and 
optionally  a  use  clause.  The  RTEMS  package  contains  the  following  items: 
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•  type  definitions 

•  NULL  pointer  definitions 

•  directive  status  codes 

•  the  date  and  time  record 

•  attribute  and  option 

•  task  mode  definitions 

•  event  and  signal  sets 

•  task  manager  related  definitions 

•  task  control  block  (TCB)  record 

•  configuration  table  records 

•  Ada  language  interface  prototypes 

S.1.4  Support  Packages 

The  following  list  of  packages  provide  functionality  commonly  needed  by 
embedded  Ada  applications.  The  source  for  these  packages  is  available  upon 
request: 


PACKAGE  NAME 

DESCRIPTION 

BITWISE 

Boolean  Functions 

TASK_EXIT 

Task  Exited  Extension 
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S.2  INITIALIZATION  MANAGER 
S.2.1  INIT_EXEC  -  Initialize  RTEMS 

CALLING  SEQUENCE: 

procedure  init_exec  ( 

conftbl:  in  CONFIG  TBL  PTR  -  pointer  to  configuration  table 

); 


NOTES: 

This  directive  does  not  return  to  the  caller. 
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S.3  TASK  MANAGER 
S.3.1  T  CREATE  -  Create  a  task 


CALLING  SEQUENCE: 

procedure  t  create  ( 


name: 

in  OBJ_NAME; 

priority: 

in  TASK  PRI; 

stksize: 

in  UNSIGNED32; 

mode: 

in  TASK_MODE; 

attr: 

in  UNSIGNED32; 

tid: 

out  OBJ  ID; 

status: 

out  DIRSTATUS 

); 


--  user-defined  four  byte  name 
--  task  priority 

-  stack  size  (in  bytes) 

-  task  execution  mode 

-  task  attributes 
--  task  id 

--  directive  status 


S.3.2  TJDENT  -  Get  ID  of  a  task 


CALLING  SEQUENCE: 


procedure  tjdent  ( 

name: 

in  OBJ  NAME; 

--  user-defined  name  to  search  for 

node. 

in  UNsTgNED32; 

-  node(s)  to  search 

tid: 

out  OBJID; 

-  task  id 

status: 

out  DIR  STATUS 

-  directive  status 

); 


S.3.3  T  START  -  Start  a  task 


CALLING  SEQUENCE: 


procedure  t_start  ( 

tid: 

in  OBJJD; 

--  task  id 

saddr: 

in  SYSTEM.ADDRESS; 

--  task’s  starting  address 

arg: 

in  UNSIGNED32; 

--  initial  argument 

status: 

out  DIR  STATUS 

-  directive  status 

); 


S.3.4  T_RESTART  -  Restart  a  task 
CALLING  SEQUENCE: 

task  id 

pointer  to  argument  list 
directive  status 


procedure  t_restart  ( 

tid:  in  OBJJD; 

arg:  in  UNSIGNED32; 

status:  out  DIR  STATUS 

); 
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S.3.5  T_DELETE  -  Delete  a  task 


CALLING  SEQUENCE: 

procedure  t_delete  ( 

tid:  in  OBJJD;  -  task  id 

status:  out  DIR_STATUS  —  directive  status 

); 


S.3.6  ^SUSPEND  -  Suspend  a  task 

CALLING  SEQUENCE: 

task  id 

directive  status 


procedure  t  suspend  ( 
tid:  in  OBJJD; 

status:  out  DIR_STATUS 

); 
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S.3.7  T  RESUME  -  Resume  a  task 


CALLING  SEQUENCE: 

procedure  t_resume  ( 

tid:  in  OBJJD;  -  task  id 

status:  out  DIR  STATUS  -- directive  status 

); 


S.3.8  T  SETPRI  -  Set  a  task’s  priority 

CALLING  SEQUENCE: 

procedure  t_setpri  { 

tid:  in  OBJJD; 

priority:  in  TASKPRI; 

ppriority:  out  TASK_PRI; 

status:  out  DIR  STATUS 

); 


-  task  id 

-  new  task  priority 

-  previous  task  priority 
--  directive  status 
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S.3.9  T  MODE  -  Change  current  task’s  mode 


CALLING  SEQUENCE: 

procedure  t_mode  ( 

mode:  in  TASK_MODE; 

mask:  in  UNSIGNED32; 

pmode:  out  TASK_MODE; 

status:  out  D1R_STATUS 

); 


-  new  task  mode 

~  mode  components  to  after 

-  previous  mode 

-  directive  status 


S.3.1 0  T_GETNOTE  -  Get  a  task’s  notepad  entry 

CALLING  SEQUENCE: 

procedure  t_getnote  ( 
tid:  in  OBJJD; 

notepad:  in  UNSIGNED32; 

note:  out  UNSIGNED32; 

status:  out  DIR  STATUS 

); 


-  task  id 

-  notepad  number 

-  notepad  value 
»  directive  status 


S.3.1 1  T  SETNOTE  -  Set  a  task’s  notepad  entry 


CALLING  SEQUENCE: 

procedure  t_setnote  ( 
tid:  in  OBJJD; 

notepad:  in  UNSIGNED32; 

note:  in  UNSIGNED32; 

status:  out  DIR_STATUS 

); 


--  task  id 

--  notepad  number 

-  notepad  value 

-  directive  status 


S.4  INTERRUPT  MANAGER 
S.4.1  l_ENTER  -  Enter  an  ISR 

CALLING  SEQUENCE: 

This  directive  is  accessible  only  from  assembly  language. 


S.4.2  I  RETURN  -  Return  from  an  ISR 


CALLING  SEQUENCE: 

This  directive  is  accessible  only  from  assembly  language. 


S.5  TIME  MANAGER 

S.5.1  TM_SET  -  Set  system  date  and  time 


CALLING  SEQUENCE: 

procedure  tm_set  ( 

timebuf:  in  TIME_PTR;  ~  pointer  to  time  Jnfo  record 

status:  out  DIR  STATUS  -  directive  status 

); 


S.5.2  TM_GET  -  Get  system  date  and  time 

CALLING  SEQUENCE: 

procedure  tm  get  ( 

timebuf:  in  TIME_PTR; 

status:  out  DIR  STATUS 

); 


--  pointer  to  time  Jnfo  record 
-  directive  status 
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S.5.3  TM_WKAFTER  -  Wake  up  after  interval 


CALLING  SEQUENCE: 

procedure  tm_wkafter  ( 

ticks:  in  INTERVAL;  --  number  of  ticks 

status:  out  DIR_STATUS  -  directive  status 

); 


S.5.4  TM.WKWHEN-  Wake  up  when  specified 

CALLING  SEQUENCE: 

procedure  tm  wkwhen  ( 
timebuf:  in  TIME_PTR; 

status:  out  DIR  STATUS 

); 


--  pointer  to  timejnfo  record 
-  directive  status 


S.5.5  TM  EVAFTER  -  Send  event  set  after  interval 


CALLING  SEQUENCE: 


procedure  tm_evafter  ( 

ticks: 

in  INTERVAL; 

-  number  of  ticks  until  event 

event: 

in  EVENT_SET; 

-  event  set 

tmid: 

out  OBJ  ID; 

-  timer  id 

status: 

out  DIR_STATUS 

-  directive  status 

); 


S.5.6  TM_EVWHEN  -  Send  event  set  when  specified 

CALLING  SEQUENCE: 

procedure  tm  evwhen  ( 

timebuf:  in  TIME_PTR;  -  pointer  to  timejnfo  record 

event:  in  EVENT_SET;  -  event  set 

tmid:  out  OBJJD;  -  timer  id 

status:  out  DIR  STATUS  -- directive  status 

); 
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S.5.7  TM_EVEVERY  -  Send  periodic  event  set 


CALLING  SEQUENCE: 


procedure  tm_evevery  ( 

ticks: 

in  INTERVAL; 

-  ticks  between  event  sets 

event: 

in  EVENT_SET; 

-  event  set 

tmid: 

out  OBJJD; 

-  timer  id 

status: 

out  DIR  STATUS 

~  directive  status 

); 


S.5.8  TM_CANCEL  -  Cancel  timer  event 

CALLING  SEQUENCE: 

procedure  tm_cancel  ( 
tmid:  in  OBJ  ID; 

status:  out  DIR  STATUS 

); 


~  timer  event  id 
-  directive  status 


S.5.9  TM_TICK  -  Announce  a  clock  tick 

CALLING  SEQUENCE: 

procedure  tm_tick  ( 

status:  out  DIR_STATUS  -  always  returns  SUCCESSFUL 

); 
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S.6  SEMAPHORE  MANAGER 

S.6.1  SM_CREATE  -  Create  a  semaphore 


CALLING  SEQUENCE: 


procedure  sm_create  ( 

name:  in  OBJ_NAME; 

-  user-defined  four  byte  name 

count: 

in  UNSIGNED32; 

-  initial  count 

attr: 

in  UNSIGNED32; 

-  attributes  of  semaphore 

smid: 

out  OBJJD; 

-  semaphore  id 

status: 

out  DIR_STATUS 

-  directive  status 

); 


S.6.2  SMJDENT  -  Get  ID  of  a  semaphore 

CALLING  SEQUENCE: 

procedure  smjdent  ( 


name: 

in  OBJ_NAME; 

--  user-defined  name  to  search  for 

node: 

in  UNs7gNED32; 

-  node(s)  to  search 

smid: 

out  OBJJD; 

-  semaphore  id 

status: 

out  DIR_STATUS 

-  directive  status 
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S.6.3  SM_DELETE  -  Delete  a  semaphore 


CALLING  SEQUENCE: 

procedure  sm_delete  ( 

smid:  in  OBJJD;  --  semaphore  id 

status:  out  DIR  STATUS  -  directive  status 

); 


S.6.4  SM_P  -  Acquire  a  semaphore 

CALLING  SEQUENCE: 

procedure  sm_p  ( 

smid:  in  OBJJD; 

options:  in  UNS7GNED32; 

timeout:  in  INTERVAL; 

status:  out  DIR_STATUS 

); 


-  semaphore  id 

-  semaphore  acquisition  options 

-  maximum  interval  to  wait  (in  ticks) 
--  directive  status 
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S.6.5  SMJV  -  Release  a  semaphore 

CALLING  SEQUENCE: 

procedure  sm_v  ( 

smid:  in  OBJJD; 

status:  out  DIR_STATUS 


semaphore  id 
directive  status 
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S.7  MESSAGE  MANAGER 
S.7.1  Q_CREATE  -  Create  a  queue 


CALLING  SEQUENCE: 

procedure  q_create  ( 


name: 

in  OBJ  NAME; 

count: 

in  UNS7GNED32; 

attr: 

in  UNSIGNED32; 

qid: 

out  OBJJD; 

status: 

out  DIR_STATUS 

--  user-defined  four  byte  name 
--  maximum  message  count 

-  queue  attributes 

-  message  queue  id 

-  directive  status 


S.7.2  QJDENT  -  Get  ID  of  a  queue 


CALLING  SEQUENCE: 


procedure  qjdent  ( 

name: 

in  OBJJMAME; 

node: 

in  UNSIGNED32; 

qid: 

out  OBJ  ID; 

status: 

out  DIR_STATUS 

); 


-  user-defined  name  to  search  for 
--  node(s)  to  search 
--  message  queue  id 
--  directive  status 
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S.7.3  Q_DELETE  -  Delete  a  queue 


CALLING  SEQUENCE: 

procedure  q_delete  ( 

qid:  in  OBJJD;  -  queue  id 

status:  out  DIR_STATUS  --  directive  status 


S.7.4  Q_SEND  -  Put  message  at  rear  of  a  queue 

CALLING  SEQUENCE: 

procedure  q_send  ( 

qid:  in  OBJJD; 

buffer:  in  SYSTEM. ADDRESS; 

status:  out  DIR_STATUS 


-  queue  id 

-  address  of  message  buffer 
~  directive  status 


S.7.5  Q_URGENT  -  Put  message  at  front  of  a  queue 


CALLING  SEQUENCE: 

-  queue  id 

-  address  of  message  buffer 

-  directive  status 

); 


procedure  q_urgent  ( 
qid:  in  OBJJD; 

buffer:  in  SYSTEM.ADDRESS; 

status:  out  D1R_STATUS 


S.7.6  Q_BROADCAST  -  Broadcast  N  messages  to  a  queue 

CALLING  SEQUENCE: 

procedure  q_broadcast  ( 


qid: 

in  OBJ  ID; 

--  queue  id 

buffer: 

in  SYSTEM.ADDRESS; 

--  address  of  message  buffer 

count: 

out  UNSIGNED32; 

-  number  of  tasks  made  ready 

status: 

out  DIR_STATUS 

--  directive  status 

); 
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S.7.7  Q  RECEIVE  -  Receive  message  from  a  queue 


CALLING  SEQUENCE: 

procedure  q_receive  ( 
qid:  in  OBJJD; 

buffer:  in  SYSTEM.ADDRESS; 

options:  in  UNSIGNED32; 

timeout:  in  INTERVAL; 

status:  out  DIR_STATUS 

); 


-  queue  id 

-  address  of  message  buffer 

-  message  receive  options 

-  maximum  interval  to  wait  (in  ticks) 
~  directive  status 


S.7 .8  Q  FLUSH  -  Flush  all  messages  on  a  message  queue 


CALLING  SEQUENCE: 

procedure  q_flush  ( 

qid:  in  OBJJD; 

count:  out  UNSIGNED32 

status:  out  DIR  STATUS 

); 


-  queue  id 

--  number  of  msgs  flushed 

-  directive  status 
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S.8  EVENT  MANAGER 

S.8.1  EV_SEND  -  Send  event  set  to  a  task 

CALLING  SEQUENCE: 

procedure  ev_send  ( 

tid:  in  OBJJD;  --  task  id  to  send  events  to 

event:  in  EVENT_SET;  --  event  set  to  send 

status:  out  DIR  STATUS  -  directive  status 

); 


S.8.2  EV_RECEIVE  -  Receive  event  condition 

CALLING  SEQUENCE: 

procedure  ev_receive  ( 

eventin:  in  EVENT_SET; 

options:  in  UNSIGNED32; 

timeout:  in  INTERVAL; 

eventout:  out  EVENT_SET; 

status:  out  DIR_STATUS 

); 


--  input  condition 
-  event  receive  options 
--  maximum  interval  to  wait  (in  ticks) 
--  output  events 
--  directive  status 
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S.9  SIGNAL  MANAGER 

S.9.1  AS_CATCH  -  Establish  an  ASR 

CALLING  SEQUENCE: 

procedure  as_catch  ( 

asraddr:  in  SYSTEM.ADDRESS;  -  address  of  ASR 

mode:  ir*  TASK_MODE;  --  mode  of  ASR 

status:  out  DIR  STATUS  —  directive  status 

); 


S.9.2  AS_SEND  -  Send  signal  set  to  a  task 


CALLING  SEQUENCE: 

procedure  as_send  ( 
tid:  in  OBJJD; 

signal:  in  SIGNAL_SET; 

status:  out  DIR_STATUS 

); 


-  task  id 
--  signal  set 
--  directive  status 


S-24 


S.9.3  AS  ENTER  -  Enter  an  ASR 


CALLING  SEQUENCE: 

This  directive  is  accessible  only  from  assembly  language. 


S.9.4  AS_RETURN  -  Return  from  an  ASR 

CALLING  SEQUENCE: 

This  directive  is  accessible  only  from  assembly  language. 


S.10  PARTITION  MANAGER 

S.1 0.1  PT_CREATE  -  Create  a  partition 


CALLING  SEQUENCE: 


procedure  pt_create  ( 

name:  in  OBJ_NAME; 

-  user-defined  four  byte  name 

paddr: 

in  SYSTEM. ADDRESS; 

-  physical  start  address  of  partition 

length: 

in  UNSIGNED32; 

-  physical  length  (in  bytes) 

bsize: 

in  UNSIGNED32; 

-  size  of  buffer  (in  bytes) 

attr: 

in  UNSIGNED32; 

-  partition  attributes 

ptid: 

out  OBJJD; 

--  partition  id 

status: 

v  . 

out  DIR_STATUS 

-  directive  status 

); 


S.1 0.2  PTJDENT  -  Get  ID  of  a  partition 

CALLING  SEQUENCE: 

procedure  pt  ident  ( 


name: 

in  OBJ_NAME; 

--  user-defined  name  to  search  for 

node: 

in  UNSIGNED32; 

-  node(s)  to  search 

ptid: 

out  OBJJD; 

-  partition  id 

status: 

out  DIR_STATUS 

-  directive  status 

); 
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S.1 0.3  PT_DELETE  -  Delete  a  partition 


CALLING  SEQUENCE: 

procedure  pt_delete  ( 

ptid:  in  OBJJD;  --  partition  id 

status:  out  DIR_STATUS  --  directive  status 

); 


S.  1 0.4  PT_GETBUF  -  Get  buffer  from  a  partition 

CALLING  SEQUENCE: 

procedure  pt_getbuf  ( 

ptid:  in  OBJJD;  --  partition  id 

bufaddr:  out  SYSTEM.ADDRESS;  --  buffer  address 

status:  out  DIR  STATUS  --  directive  status 

); 
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S.10.5  PT_RETBUF  -  Return  buffer  to  a  partition 


CALLING  SEQUENCE: 

procedure  pt_retbuf  ( 
ptid:  in  OBJJD; 

bufaddr:  in  SYSTEM.ADDRESS; 

status:  out  DIR_STATUS 

); 


-  partition  id 
--  buffer  start  address 
--  directive  status 
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S.11  REGION  MANAGER 

S.1 1 .1  RN_CREATE  -  Create  a  region 

CALLING  SEQUENCE: 

procedure  rn_create  ( 


name: 

in  OBJ  NAME; 

--  user-defined  four  byte  name 

paddr: 

in  SYSTEM.ADDRESS; 

-  physical  start  address  of  region 

length: 

in  UNSIGNED32; 

--  physical  length  (in  bytes) 

pagesize: 

in  UNSIGNED32; 

--  region  page  size  (in  bytes) 

attr: 

in  UNSIGNED32; 

~  region  attributes 

rnid: 

out  OBJJD; 

-  region  id 

status: 

out  DIR_STATUS 

-  directive  status 

S.1 1 .2  RNJDENT  -  Get  ID  of  a  region 

CALLING  SEQUENCE: 

procedure  rnjdent  ( 

name:  in  OBJNAME; 

mid:  out  OBJJD; 

status:  out  DIRSTATUS 


-  user-defined  name  to  search  for 

-  region  id 

-  directive  status 
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S.1 1 .3  RN_DELETE  -  Delete  a  region 

CALLING  SEQUENCE: 

procedure  rn_delete  ( 

mid:  in  OBJJD;  --  region  id 

status:  out  DIR  STATUS  -  directive  status 

); 


S.1 1 .4  RN_GETSEG  -  Get  segment  from  a  region 


CALLING  SEQUENCE: 


procedure  rn_getseg  ( 

mid: 

in  OBJ  ID; 

-  region  id 

size: 

in  UNSIGNED32; 

-  segment  size  desired  (in  bytes) 

options: 

in  UNSIGNED32; 

-  get  segment  options 

timeout: 

in  INTERVAL; 

-  maximum  interval  to  wait  (in  ticks) 

segaddr: 

out  SYSTEM. ADDRESS; 

-  segment  start  address 

status: 

out  DIR  STATUS 

--  directive  status 

); 


S.1 1 .5  RN_RETSEG  -  Return  segment  to  a  region 


CALLING  SEQUENCE: 

procedure  rn_retseg  ( 
mid:  in  OBJJD; 

segaddr:  in  SYSTEM.ADDRESS; 

status:  out  DIR  STATUS 

); 


--  region  id 

--  segment  start  address 
--  directive  status 


S.1 2  DUAL-PORT  MEMORY  MANAGER 
S.12.1  DP_CREATE  -  Create  a  port 


CALLING  SEQUENCE: 

procedure  dp_create  ( 

name:  in  OBJ  NAME; 

intaddr:  in  SYSTEM.ADDRESS; 

extaddr:  in  SYSTEM.ADDRESS; 

length:  in  UNSIGNED32; 

dpid:  out  OBJJD; 

status:  out  DIR_STATUS 


-  user-defined  four  byte  name 

-  internal  start  address  of  region 
~  external  start  address  of  region 

-  physical  length  (in  bytes) 

-  dual  ported  memory  port  id 
--  directive  status 


S.1 2.2  DPJDENT  -  Get  ID  of  a  port 

CALLING  SEQUENCE: 

--  user-defined  name  to  search  for 

-  dual  ported  memory  port  id 

-  directive  status 


procedure  dpjdent  ( 

name:  in  OBJ  NAME; 

dpid:  out  OBJJD; 

status:  out  DIRSTATUS 
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S.1 2.3  DP  .DELETE  -  Delete  a  port 


CALLING  SEQUENCE: 

procedure  dp_delete  ( 

dpid:  in  OBJJD;  --  port  id 

status:  out  DIR  STATUS  -  directive  status 

); 


S.1 2.4  DP__2INTERNAL  -  Convert  external  to  internal  address 

CALLING  SEQUENCE: 

procedure  dp_2internal  ( 
dpid:  in  OBJJD; 

external:  in  SYSTEM.ADDRESS; 

internal:  out  SYSTEM.ADDRESS; 

status:  out  DIR  STATUS 

); 


--  port  id 

-  external  address 
--  internal  address 

-  directive  status 
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S.1 2.5  DP_2EXTERNAL  -  Convert  Internal  to  external  address 


CALLING  SEQUENCE: 

procedure  dp_2external  ( 
dpid:  in  OBJJD; 

internal:  in  SYSTEM. ADDRESS; 

external:  out  SYSTEM.ADDRESS; 

status:  out  DIR_STATUS 

): 


--  port  id 

-  internal  address 
--  external  address 

-  directive  status 
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S.1 3  INPUT/OUTPUT  MANAGER 

S.1 3.1  DE  INIT  -  Initialize  a  device  driver 


CALLING  SEQUENCE: 


procedure  dejnit  { 


dev: 

in  UNSIGNED32; 

argp: 

in  SYSTEM.ADDRESS; 

rval: 

out  UNSIGNED32; 

status: 

out  DIR_STATUS 

); 


-  32-bit  device  number 

-  address  of  parameter  block 

-  return  value  from  the  driver 

-  directive  status 


S.1 3.2  DE_OPEN  -  Open  a  device 


CALLING  SEQUENCE: 

procedure  de_open  ( 


dev: 

in  UNSIGNED32; 

argp: 

in  SYSTEM.ADDRESS; 

rval: 

out  UNSIGNED32; 

status: 

out  DIR_STATUS 

); 


-  32-bit  device  number 

-  address  of  parameter  block 

-  return  value  from  driver 

-  directive  status 
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S.1 3.3  DE_CLOSE  -  Close  a  device 

CALLING  SEQUENCE: 

procedure  de_close  ( 


dev: 

in  UNSIGNED32; 

--  32-bit  device  number 

argp: 

in  SYSTEM.ADDRESS; 

-  address  of  a  parameter  block 

rval: 

out  UNSIGNED32; 

-  return  value  from  driver 

status: 

out  DIR  STATUS 

--  directive  status 

); 


S.1 3.4  DE_READ  -  Read  from  a  device 


CALLING  SEQUENCE: 

procedure  de_read  ( 

dev: 

in  UNSIGNED32; 

-  32-bit  device  number 

argp: 

in  SYSTEM.ADDRESS; 

-  address  of  a  parameter  block 

rval: 

out  UNSIGNED32; 

--  return  value  from  driver 

status: 

out  DIR_STATUS 

-  directive  status 

); 
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S.1 3.5  DE_WRITE  -  Write  to  a  device 


CALLING  SEQUENCE: 

procedure  de_write  ( 

dev: 

in  UNSIGNED32; 

-  32-bit  device  number 

argp: 

in  SYSTEM.ADDRESS; 

-  address  of  a  parameter  block 

rval: 

out  UNSIGNED32; 

-  return  value  from  driver 

status: 

out  DIR_STATUS 

-  directive  status 

); 


S.1 3.6  DE_CNTRL  -  Special  device  services 


CALLING  SEQUENCE: 


procedure  de  cntrl  ( 

dev: 

in  UNSIGNED32; 

--  32-bit  device  number 

argp: 

in  SYSTEM.ADDRESS; 

-  address  of  a  parameter  block 

rval: 

out  UNSIGNED32; 

-  return  value  from  driver 

status: 

out  DIR_STATUS 

-  directive  status 

): 
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S.1 4  FATAL  ERROR  MANAGER 

S.1 4.1  K_FATAL  -  Invoke  the  fatal  error  handler 

CALLING  SEQUENCE: 

procedure  k_fatal  ( 

errcode:  in  UNSIGNED32  -  fatal  error  code 

); 

NOTES: 

This  directive  does  not  return  to  the  caller. 
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S.1 5  MULTIPROCESSING  MANAGER 

S.1 5.1  MP_ANNOUNCE  -  Announce  the  arrival  of  a  packet 

CALLING  SEQUENCE: 

procedure  mp_announce; 
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S.16  CREATIN'^  AN  APPLICATION 

S.16.1  Introduction 


This  appendix  demonstrates  how  to  create  an  RTEMS  application  using  the 
Telesoft  Ada  MC680x0  cross-compiler  V3.23  as  hosted  under  VMS  6.2.  All 
examples  of  commands  assume  that  Telesoft  Ada  is  installed  and  configured 
correctly. 

5.16.2  Environment  Requirements 

The  standard  environment  modules  provided  by  Telesoft  for  MC68020  processor 
boards  require  minor  modifications  to  support  an  RTEMS  application.  The 
following  is  a  list  of  requirements  for  an  environment  module  to  support 
RTEMS: 

•  If  RTEMS  time  facilities  are  to  be  used,  a  timer  must  be 
initialized  which  will  periodically  generate  an  interrupt  The 
interrupt  service  routine  for  the  timer  should  invoke  the 
tm  tick  directive. 

•  The  RTEMS  Work  Space  (as  specified  in  the  Configuration 
Table)  must  be  cleared. 

•  RTEMS  compatible  Input/Output  Handlers  must  be 
initialized. 

•  Interrupts  must  be  disabled  when  the  initexec  directive  is 
invoked. 

5.16.3  Creating  Application  Library 

The  following  command  will  create  an  empty  library  which  can  be  used  to 
contain  the  modules  which  constitute  the  user’s  application: 

$  TSADA/E68 /CREATE  APPLIB 

5.16.4  Generating  a  Default  Library  File 

A  default  library  file  is  used  by  the  Ada  compiler  to  determine  the  ordered  set 
of  libraries  to  be  searched  during  reference  resolution.  The  following  is  an 
example  of  a  default  library  file  for  an  RTEMS  application: 


Name:  APPLIB 
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Maine:  RTEMS_LIB 
Maine:  RTEMSBSP_LIB 
Name:  TSADA$DIR:CGS68020 
Name:  TSADA$DIR : TSA6 802 ORTL 


The  first  line  indicates  the  name  of  the  library  which  will  contain  the 
application’s  compilation  units.  The  second  line  references  the  RTEMS  Ada 
Interface  Library.  The  third  line  references  the  name  of  the  library  which 
contains  the  environment  support  routines  for  the  target  processor  board.  The 
last  lines  reference  the  Telesoft  Code  Generator  Support  and  Run-Time 
Libraries,  respectively. 

5.16.5  Compiling  an  Application 

Each  compilation  unit  must  be  converted  into  MC68020  object  code  using  a 
command  similar  to  the  following: 

$  TSADA/E68/ADA/CPU = MC68020  compilationunitname 

The  above  command  lists  the  minimum  option  set  required  to  generate  an 
MC68020  application.  For  a  list  of  other  supported  options,  please  refer  to  the 
Telesoft  TeleGen2  for  VAX/VMS  Systems  to  Embedded  MC680X0  Targets  ~ 
User  Guide. 

5.16.6  Binding  an  Application 

The  binding  process  consists  of  the  following  activities: 

•  verifying  that  the  compilation  unit  designated  as  the  main 
program  meets  all  requirements  for  a  main  program. 

•  insuring  that  the  main  program’s  context  (i.e.  imported 
packages)  is  current.  If  any  units  are  missing  or  out  of  date, 
then  an  error  is  generated  and  the  binding  is  aborted. 

•  generating  elaboration  code  and  storing  it  in  the  application 
library. 

The  main  program  must  be  bound  with  a  command  similar  to  the  following: 

$  TSADA/E68/BIND /CPU “MC68020  compilation  unit  name 

The  above  command  lists  the  minimum  option  set  required  to  bind  an  MC68020 
Ada  application.  For  a  list  of  other  supported  options,  please  refer  to  the 
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Telesoft  TeleGen2  for  VAX/VMS  Systems  to  Embedded  MC680X0  Targets  - 
User  Guide. 

S.16.7  Generating  a  Linker  Options  File 

A  linker  options  file  is  used  to  specify  user  environment  variables  and  commonly 
used  linker  options.  Telesoft  provides  a  number  of  linker  option  files  which  are 
specifically  tailored  to  support  different  targets.  For  more  details  regarding  the 
linker  options  file,  please  refer  to  the  Telesoft  TeleGen2  for  VAX/VMS 
Systems  to  Embedded  MC680X0  Targets  --  User  Guide.  The  following  lines 
are  typically  included  to  provide  information  required  by  most  RTEMS 
environment  packages: 


DEFINE / rtems_exec_RAM=< app 1 ic at ion  dependent> 
DEFINE/RTEMS_RAM_SIZE=<application  dependents 
DEFINE /RTEMSMS  TICK=<application  dependent> 


These  values  must  match  the  corresponding  fields  in  the  application 
configuration  table.  The  environment  modules  will  need  these  variables  to 
know  the  location  and  size  of  the  RTEMS  Work  Space  and  the  number  of 
milliseconds  per  clock  tick. 

In  addition,  the  following  lines  must  be  included  to  allow  Telesoft  to  link  with 
RTEMS: 


INPUT/OFM  RTEMS_BSP 

LOCATE /COMPONENT=RTEMS_BSP/OFM/ AT* 16#003000# 
LOCATE / AT= 1 6 # 4 0 0 0 # 

INPUT/OFM  RTEMS_CORE 
INPUT/OFM  RTEMS  IFACE 


The  first  line  defines  the  name  of  the  user’s  board  support  package  module 
which  must  be  linked  with  the  application.  The  next  line  indicates  the  address 
at  which  the  user’s  board  support  package  should  be  placed  by  the  locator.  The 
third  line  indicates  the  location  at  which  other  application  code  may  be  placed. 
This  address  should  allow  enough  room  for  the  entire  board  support  package 
module.  The  last  two  lines  are  the  names  of  the  modules  for  RTEMS  and  the 
Ada  interface  to  RTEMS,  respectively. 
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S.1 6.8  Unking  an  Application 


The  linking  process  allows  users  to  link  compiled  Ada  programs  in  preparation 
for  target  execution.  The  linking  process  resolves  references  in  the  following: 


•  Ada  programs, 

•  bare  target  run-time  support  library,  and 

•  any  imported  non-Ada  code. 

A  command  similar  to  the  following  is  used  to  link  the  user’s  application  and 
create  a  Motorola  S-Record  file  named  main_prog.sr. 

$  TSADA/E68/LINK/SRECORDS/OPTIONS  *»  lk_opt_file  main^prog 

The  above  command  lists  the  minimum  option  set  required  to  link  an  MC68020 
Ada  application.  For  a  list  of  other  supported  options,  please  refer  to  the 
Telesoft  TeleGen2  for  VAX/VMS  Systems  to  Embedded  MC680X0  Targets  -- 
User  Guide. 
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S.1 7  EXAMPLE  APPLICATION 


—  example . ada 

—  This  file  contains  an  example  of  a  simple  RTEMS  application. 

—  It  contains  a  configuration  table,  a  user  initialization  task, 

—  and  a  simple  task. 

This  example  assumes  that  a  board  support  package  exists 
and  has  completed  initialization  before  control  is  given 

—  to  the  main  program.  The  example  fragment  performs  some 

—  application  initialization  before  initializing  RTEMS. 

—  Most  of  the  tasks  in  this  example  are  created 

—  automatically  by  RTEMS  via  the  Initialization  Task 
Table . 


with  RTEMS;  use  RTEMS; 
with  TEXT_IO;  use  TEXT_IO; 
procedure  EXAMPLE  is 

Arg:  UNSIGNED32:=  0;  —  example  tasks  ignore  args 

procedure  user_app  is 

BEGIN 

—  application  specific  initialization  goes  here 

loop  —  infinite  loop 

—  APPLICATION  CODE  GOES  HERE 

—  This  code  will  typically  include  at  least  one  directive 
—  which  causes  the  calling  task  to  give  up  the  processor. 

END  LOOP; 

END  user_app; 
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procedure  init_task  is 

APP_NAME :  constant  OB J_NAME : *=  1;  —  uniqueness  helps 

app_tid:  OBJ_ID; 

status :  dir_status  ; 

begin 

—  example  assumes  SUCCESSFUL  return  value 

t_create(  APP_NAHE ,  1,  1024,  0,  DEFAULTS,  app_tid,  status  ); 
t_start(  app_tid ,  user_app ' ADDRESS ,  Arg,  status  ); 
t_delete(  SELF,  status  ); 

end  init_task; 

init_task_tbl s  ITASKS_INFO : =  ( 

STR_TO_OBJ(  "ABC  "  ), 

1024, 

1/ 

DEFAULTS, 

init_task ' ADDRESS , 

TSLICE, 

Arg 

); 

conf ig_table :  config_tbl 
16#0f 0000#, 

65536, 

3, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

10, 

1, 

1, 

init_task_tbl ' ADDRESS , 

0, 

NULL_DRIVER_TABLE , 

NULL_EXT JTABLE , 

NULL_MP_TABLE, 

); 

begin 

put_line (  "EXAMPLE  PROGRAM"  ); 
init_exec(  config_table  ); 
end  EXAMPLE; 


PTR:=  new  config_tbl'( 

—  executive  RAM  work  area 

—  executive  RAM  size 

—  maximum  tasks 

—  maximum  semaphores 

—  maximum  timers 

—  maximum  message  queues 

—  maximum  messages 

—  maximum  regions 

--  maximum  partitions 

—  maximum  dp  memory  areas 

—  number  of  ms  in  a  tick 

—  number  of  ticks  in  a  timeslice 

—  number  of  user  init  tasks 

—  user  init  task(s)  table 

—  number  of  device  drivers 

—  ptr  to  driver  address  table 

—  ptr  to  user  extension  table 

—  ptr  to  MP  config  table 


—  init  task  name  "ABC  " 

—  init  task  stack  size 

—  init  task  priority 

—  init  task  attributes 

—  init  task  entry  point 

—  init  task  initial  mode 

—  init  task  argument  list 
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A 


S.1 8  PACKAGE  SPECIFICATION 


—  Package  Specification  RTEMS  (  rtems.ada  ) 

—  This  package  contains  information  about  the 

—  executive  that  is  needed  by  the  application. 


—  ADA  packages 

with  SYSTEM;  use  SYSTEM; 
with  UNCHECKED_CONVERSION; 

package  RTEMS  is 

—  processor  dependent  type  definitions 

type  UNSIGNED8  is  new  INTEGER  range  0..(2**8)  -  1; 
for  UNSIGNED8 ' size  use  8; 

type  UNSIGNED 16  is  new  LONG_lNTEGER  range  0.. (2**16)  -  1; 
for  UNSIGNED16 ' size  use  16; 

type  UNSIGNED32  is  new  LONG_INTEGER  range  0 . . LONG_I NTEGER ' LAST ; 


—  RTEMS  dependent  type  definitions 

—  RTEMS  task,  taskjptr,  proc_ptr,  asr_ptr  not  supported  in  ADA 


type 

OBJ_NAME 

is 

new 

LONG_ 

INTEGER 

range 

0. ,LONG_ 

INTEGER 'LAST; 

type 

OBJ_ID 

is 

new 

LONG_ 

INTEGER 

range 

0. . LONG_ 

INTEGER 'LAST; 

type 

DIR_STATUS 

is 

new 

LONG_ 

INTEGER 

range 

0. . L0NG_ 

INTEGER 'LAST; 

type 

TASK_MODE 

is 

new 

LONG_ 

INTEGER 

range 

0 .  . LONG_ 

INTEGER 'LAST; 

type 

TASK_PRI 

is 

new 

LONG 

INTEGER 

range 

0.  .255; 

for  TASK_PRI ' size  use  32; 

type 

INTERVAL 

is 

new 

LONG_ 

INTEGER 

range 

0 .  . L0NG_ 

INTEGER' LAST; 

type 

EVENT_SET 

is 

new 

LONG_ 

INTEGER 

range 

0 .  . LONG_ 

INTEGER 'LAST; 

type 

SIGNAL_SET 

is 

new 

LONG_ 

INTEGER 

range 

0 . . L0NG_ 

INTEGER’ LAST; 

—  Pointer  And  address  type  definitions 


function  ADDR  is  new  UNCHECKED_CONVERSION(  UNSIGNED32,  ADDRESS  ); 
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—  RTEMS  directive  completion  statuses 


SUCCESSFUL: 

E_EXITTED: 

E_NOMP : 

E_NAME: 

E_ID: 

ETOOMANY : 
ETIMEOUT: 
EDELETE : 

E_SIZE : 

EADDRESS : 
ENUMBER: 

E  NOTDEFINED: 
E_INUSE : 
E__UNSATISFIED : 
E_STATE : 

E_AL  READY : 

E_SELF  : 

E_REHOTE : 
E_CALLED : 
E_PRIORlTY: 
ECLOCK : 

ENODE : 

E_NOTCONFIGURED : 
E  NOTIMPLEMENTED 


constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
:  constant 


—  Task  states 


DIR_STATUS:=  0; 
DIR_STATUS : =  1; 
DIR~STATUS :=  2; 
DIR_STATUS:=  3; 
DIR_STATUS:=  4; 
DIR_STATUS:=  5; 
DIR_STATUS : =  6; 
DIR_STATUS : =  7; 
DIR_STATUS:=  8; 
DIR_STATUS : =  9; 
DIR_STATUS:=  10 
DIR_STATUS:=  11 
DIR_STATUS:=  12 
DIR_STATUS:=  13 
DIR_STATUS:=  14 
DIR_STATUS:=  15 
DIR_STATUS:=  16 
DIR_STATUS:=  17 
DIR_STATUS:=  18 
DIR_STATUS:=  19 
DIR_STATUS:=  20 
DIR_STATUS:=  21 
DIR_STATUS:=  22 
DIR  STATUS : =  23 


successful  completion 
returned  from  a  task 
single  proc  system 
invalid  object  name 
invalid  object  id 
too  many 

timed  out  waiting 
obj  deleted  while  waiting 
invalid  size 
invalid  address 
invalid  number 
item  not  initialized 
resources  outstanding 
request  not  satisfied 
task  is  in  wrong  state 
task  already  in  state 
illegal  for  calling  task 
illegal  on  remote  object 
incorrect  environment 
invalid  task  priority 
invalid  time  buffer 
invalid  node  id 
directive  not  configured 
directive  not  implemented 


TS_READY : 

TS_DORMANT: 

TS_SUSPEND: 

TS_TRANSIENT: 

TS_DELAY: 

TS_WAI TSEGMENT : 
TS_WAITMESSAGE : 
TS_WAI TE VENT : 
TSWAITSEMAPHORE : 
TS_WAITTIME : 

TS  WAITRPCREPLY: 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


UNSIGNED32 :  = 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 
UNSIGNED32 := 


16  #000# 
161001# 
16#002# 
16#004# 
161008# 
16#010# 
16#020# 
16#040# 
16  #080# 
16#100# 
16#200# 


ready  to  run 
created,  not  started 
wait  to  be  resumed 
task  in  transition 
wait  for  timeout 
wait  for  segment 
wait  for  message 
wait  for  event 
wait  for  semaphore 
wait  for  date /time 
wait  for  rpc  reply 


—  Defaults  for  attributes  or  options 


DEFAULTS:  constant  UNSXGNED32 :**  16#00000000#;  —  all  default  options 


—  Attribute  constants 

NOFP:  constant  UNSXGNED32 :*  16#00000000# ;  —  no  floating  point  unit 
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FP:  constant  UNSIGNED32 :»  16100000001#;  —  floating  point  unit 

LOCAL:  constant  UNSIGNED32:=  16100000000#;  —  local  object 

GLOBAL:  constant  UNSXGNED32:=  16#00000002#;  —  global  object 

FIFO:  constant  UNSIGNED32:=  16#00000000#;  —  process  in  FIFO  order 

PRIORITY:  constant  UNSIGNED32:=  16#00000004#;  —  process  by  priority 

NOLIMIT:  constant  UNSIGNED32:=  16#00000000#;  —  do  not  place  a  liadt 

LIMIT:  constant  UNSIGNED32:-  16#00000008# ;  —  limit  queue  entries 

—  Options  constants 

WAIT:  constant  UNSIGNED32:=  16#0000l)008#;  —  Wait  for  completion 

NOWAIT:  constant  UNSIGNED32:=  16#00000001#;  —  do  nOt  wait  on  resource 

EV_ALL:  constant  UNSIGNED32:=  16#bODOOOOO#;  — wait  for  all  eveftt(s) 

EV_ANY:  constant  UNSIGNED32 :=  16#00000002#;  —  wait  for  any  event(S) 

—  Mask  constants 

PREEMPTMODE:  constant  UNSIGNED32:=  16100000100#;  —  preemption  bit 

TSL ICEMODE :  constant  UNSIGNED32:=  16#00000200#;  —  tslice  bit 

ASRMODE :  constant  UNSIGNED32:=  l6#00000400# ;  —  ASR  enable  bit 

INTRMODE :  constant  UNSIGNED32 :=»  16#00000007#;  —  execution  mode  bits 

—  Mode  constants 

PREEMPT:  constant  TASK_MODE : =  16100000000#;  —  enable  prompt ion 

NOPREEMPT:  constant  TASK_MODE:=  16#00000100# ;  —  disable  preemption 

NOTSLICE:  constant  tASK_MODE:=  16#00000000#;  —  disable  timeslicing 

TSLICE:  constant  TASK_MODE:=  16#00000200#;  —  enable  timeslicing 

ASR:  constant  TASK_MODE:=  16#00000000#;  —  enable  ASR 

NOASR :  constant  TASK  MODE:=  16#00000400#;  —  disable  ASR 


function  INTR(  level:  in  UNSIGNED32  )  return  UNSIGNED32; 

—  Null  constants  (after  record  definitions  in  ADA) 

—  Identification  constants 


ALL_NODES  :  constant  UNSIGNED32  :=■ 
OTHER_NODES: constant  UNSIGNED32:= 
LOCAL_NODE :  constant  UNSIGNED32 := 
WHO  AM  I:  constant  UNSIGNED32:- 


0 

16#7f f f f f fe# 
16#7fffffff# 
0 


—  search  all  nodes 

—  all  except  local  node 

—  only  local  node 

—  calling  task 


—  Miscellaneous  constants 
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CURRENT : 
NOTIMEOUT  S 
SELF: 

YIELD: 

MIN_PRIORITY : 
MAXJPRIORITY : 
MIN  STK  SIZE: 


constant  UNSIGNED32:-  0; 
constant  INTERVAL:-  0; 
constant  OB J_ID : =  0 ; 
constant  INTERVAL:-  0; 
constant  TASK_PRI:»  1; 
constant  TASK_PRI:-  255; 
constant  UNSIGNED32 : —  256; 


—  current  mode/priority 

—  wait  indefinitely 

—  current  task 

—  yield  CPU  (tm_wkafter) 

—  highest  task  priority 

—  lowest  task  priority 

—  minimum  stack  size 


—  Definitions  for  event  sets 


EVENT_0 : 
EVENT_1 : 
EVENT_2 : 
EVENT_3 : 
EVENT_4 : 
EVENT_5 : 
EVENT_6 : 
EVENT_7 : 
EVENT_8 : 
EVENT_9 : 
EVENT_10: 
EVENT_1 1 : 
EVENT_12: 
EVENT_13: 
EVENT_14: 
EVENT_15: 
EVENT_16 : 
EVENT_17 : 
EVENT_18: 
EVENT_19 : 
E VENT_2  0 : 
EVENT_2 1 : 
EVENT_22 : 
EVENT_23: 
E VENT_2  4 : 
E VENT_2  5 : 
EVENT_26: 
EVENT_27 : 
EVENT_28 : 
EVENT_29 : 
EVENT  30: 


constant  EVENT_SET : =  16 #1#; 
constant  EVENT_SET:=  16 #2#; 
constant  EVENT_SET:=  16#4#; 
constant  EVENT_SET:=  16 #8#; 
constant  EVENT_SET : =  16 #10 I; 
constant  EVENT_SET : —  16 #20#; 
constant  EVENT_SET : —  16 #40#; 
constant  EVENT_SET:=  16 #80#; 
constant  EVENT_SET:=  16#100#; 
constant  EVENT_SET : —  16 #200#; 
constant  EVENT_SET : —  16#400#; 
constant  EVENT_SET:=  16#800#; 
constant  EVENT_SET:=  16#1000#; 
constant  EVENT__SET :  —  16 #2000#; 
constant  EVENT_SET : —  16#4000#; 
constant  EVENT__SET :  —  16#8000#; 
constant  EVENT_SBT:«  16#10000#; 
constant  EVENT_SET:=  16#20000#; 
constant  EVENT_SET:=  16#40000#; 
constant  E VENT_SET : —  16#80000#; 
constant  EVENT_SET:=  16#100000#; 
constant  EVENT_SET:=  16#200000#; 
constant  EVENT_SET:=  16#400000#; 
constant  EVENT_SET : =  16 #800000#; 
constant  EVENT_SET : -  16#1000000#; 
constant  EVENT_SET:=  16#2000000#; 
constant  EVENT_SET : —  16#4000000#; 
constant  EVENT_SET:=  16#8000000#; 
constant  EVENTjSET:-  16#10000000#; 
constant  EVENT_SET : —  16#20000000#; 
constant  EVENT  SET:-  16#40000000#; 


_  EVENT  31  is  not  accessible  by  ADA  programs 


—  Definitions  for  signal  sets 
SIGNAL  0  :  constant  SIGNAL_SET:-  16 #1#; 
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SIGNAL_1 

SIGNAL2 

SIGNAL_3 

SIGNAL_4 

SIGNAL5 

SIGNAL_6 

SIGNAL7 

SIGNAL8 

SIGNAL_9 

SIGNAL_10 

SIGNAL_11 

SIGNAL_12 

SIGNAL_13 

SIGNAL_14 

SIGNAL_15 

SIGNAL_16 

SIGNAL_17 

SIGNAL_18 

SIGNAL_19 

SIGNAL_20 

SIGNAL_21 

SIGNAL_22 

SIGNAL_23 

SIGNAL_24 

SIGNAL_25 

SIGNAL_26 

SIGNAL_27 

SIGNAL_28 

SIGNAL_29 

SIGNAL  30 


constant  SIGNAL_SETx=  16#2#; 
constant  SIGNAL_SETx»  16 #4#; 
constant  SIGNAL_SETx=  16 #8#; 
constant  SIGNAL_SETx=  16110#; 
constant  SIGNAL_SETx=»  16#20#J 
constant  SIGNAL_SETx=»  16*40#; 
constant  SIGNAL_SETx=  16 #80#; 
constant  SIGNAL_SETx=  16#100#; 
constant  SIGNAL_SETx=  16#200#; 
constant  SIGNAL_SETx=  16#400#; 
constant  SIGNAL_SET:=  16#800#; 
constant  SIGNAL_SETx*  16#1000#; 
constant  SIGNAL_SETx=  16#2000#; 
constant  SIGNAL_SETx=  16 #4000#; 
constant  SIGNAL_SETx=  16#8000#; 
constant  SIGNAL_SET:=  16*10000#; 
constant  SIGNALjSETx®  16#20000#; 
constant  SIGNAL_SETx=  16*40000#; 
constant  SIGNAL_SETx=  16*80000#; 
constant  SIGNAL_SETx=  16*100000#; 
constant  SIGNAL_SETx=  16*200000#; 
constant  SIGNAL_SET:=  16*400000#; 
constant  SIGNAL_SETx=  16*800000#; 
constant  SIGNAL_SETx=  16*1000000#; 
constant  SIGNAL_SETx=  16*2000000#; 
constant  SIGNALjSETx®  16*4000000#; 
constant  SIGNAL_SET:=  16*8000000#; 
constant  SIGNAL_SETx=  16*10000000#; 
constant  SIGNAL_SETx=  16*20000000#; 
constant  SIGNAL_SETx=  16*40000000#; 


—  SIGNAL_31  is  not  accessible  by  ADA  programs 


—  Notepad  location  constants 


NOTEPAD_0 : 
NOTEPAD_l : 
NOTEPAD_2  s 
NOTEPAD_3 : 
NOTEPAD_4 : 
NOTEPAD_5 : 
NOTEPAD_6 : 
NOTEPAD  7  x 
NOTEPAD_8  s 
NOTEPAD_9 : 
NOTEPAD^ 10 : 
NOTEPAD^llx 
NOTEPAD_12 l 
NOTEPAD_13: 
NOTEPAD__14  I 
NOTEPAD  15 x 


constant  UNSIGNED32i= 
constant  UNSIGNED32  s  = 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32:= 
constant  UNSIGNED32x« 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 
constant  UNSIGNED32i« 
constant  UNSIGNED32x= 
constant  UNSIGNED32x= 


0; 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11: 

12 

13, 

14; 

15: 


—  Notepad  Location  0 

—  Notepad  Location  1 

—  Notepad  Location  2 

—  Notepad  Location  3 

—  Notepad  Location  4 

—  Notepad  Location  5 

—  Notepad  Location  6 

—  Notepad  Location  7 

—  Notepad  Location  8 

—  Notepad  Location  9 

—  Notepad  Location  10 

—  Notepad  Location  11 

—  Notepad  Location  12 

—  Notepad  Location  13 

—  Notepad  Location  14 

—  Notepad  Location  15 
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—  Multiprocessing  constants 

MIN  PKTSIZE:  constant  UNSIGNED32:*  64;  —  MPCI  layer  must  support 
~  —  packets  >«  this  size 

_  Macros  to  access  sub-fields  in  an  object  id 

function  Node(  ob j s  in  OBJ_ID  )  return  UNSIGNED32; 
pragma  inline (  Node  ) ; 

function  Object (  obj*  in  OBJ _ ID  )  return  UNSIGNED32, 

pragma  inline {  Object  ); 

subtype  obj_str  is  string (  1..4  ); 

function  OBJ— TO  STR  is  new  unchecked_conversion(  OB J_NAME ,  OBJ_STR  ); 
function  STR  TO  OBJ  is  new  unchecked__conversion(  OBJ_STR,  OBJ_NAME  ); 


—  Time  type  Definitions 

type  YEARS  is  new  INTEGER  range  1988 .. INTEGER' last; 

type  MONTHS  is  new  INTEGER  range  1..12; 
for  MONTHS 'size  use  8; 

type  DAYS  is  new  INTEGER  range  1..31; 
for  DAYS ' size  use  8; 

type  HOURS  is  new  INTEGER  range  0..23; 
for  HOURS 'size  use  16; 

type  MINUTES  is  new  INTEGER  range  0..59; 
for  MINUTES 'size  use  8; 

type  SECONDS  is  new  INTEGER  range  0..59; 
for  SECONDS 'size  use  8; 


—  Date  and  time  record 
type  TIME_lNFO  is  record 
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year: 

YEARS; 

—  year,  A.D. 

month : 

MONTHS; 

—  month,  1  ->  12 

day: 

DAYS; 

—  day,  1  ->  31 

hour: 

HOURS; 

—  hour,  1  ->  23 

minute : 

MINUTES; 

—  minute,  0  ->  59 

second : 

SECONDS; 

—  second,  0  ->  59 

ticks : 

UNSIGNED32; 

—  elapsed  ticks  between  secs 

end  record; 

type  TIME_PTR  is  access  TIME_INFO; 

—  MC68020  registers 

type  REGISTERS  is  record 
dO:  UNSIGNED 3 2 ; 

dl:  UNSIGNED32 ; 

d2 :  UNSIGNED32; 

d3s  UNSIGNED32 ; 

d4 :  UNSIGNED32; 

d5:  UNSIGNED32 ; 

d6 :  UNSIGNED32 ; 

d7s  UNSIGNED32; 
aO:  UNSIGNED32; 

al:  UNSIGNED32; 

a2 :  UNSIGNED32 ; 

a3 :  UNSIGNED32 ; 

a 4 :  UNSIGNED32 ; 

a5:  UNSIGNED32; 

a6 :  UNSIGNED32; 

map:  UNSIGNED32; 
end  record; 

—  Task  control  block 
type  T_CTLBLK ; 

type  T_CB  is  access  T_CTLBLK; 
type  U8ARRAY  is  array (  POSITIVE  range  )  of  UNSIGNED8; 
type  NP  ARRAY  is  array (  NOTEPAD  0.. NOTEPAD  15  )  of  UNSIGNED32; 


—  pointer  to  next  TCB 

—  pointer  to  previous  TCB 

—  task  identification 


—  Task  control  block 

type  T_CTLBLK  is  record 
next:  T_CB; 

prev:  T  CB; 

tid:  OBJ  ID; 


—  data  register  0 

—  data  register  1 

—  data  register  2 

—  data  register  3 

—  data  register  4 

—  data  register  5 

—  data  register  6 

—  data  register  7 

—  address  register  0 

—  address  register  1 

—  address  register  2 

—  address  register  3 

—  address  register  4 

—  address  register  5 

—  address  register  6 

—  master  stack  pointer 
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name: 

OBJ_NAME ; 

state : 

UNSIGNED32; 

priority: 

TASK_PRI ; 

wait: 

OBJ_ID; 

resvdl: 

U8_ARRAY (  1 

mode : 

TASK_MODE; 

attributes : 

UNSIGNED32; 

regs: 

REGISTERS; 

fp_context: 

ADDRESS ; 

notepad : 

NP_ARRAY; 

extension: 

ADDRESS; 

end  record; 

—  task  name 

—  task  state 

—  current  task  priority 

—  id  of  resource  waiti-g  on 

—  reserved  for  RTEMS 

—  current  task  mode 

—  task  attributes 

—  MC68020  register  save  area 
_  pointer  to  FP  context  area 

—  executive  notepads 

—  pointer  TCB  extension 


—  Initialization  task(s)  record 
type  ITASKSINFO  is  record 


name: 

OBJ_NAME; 

—  task 

name 

stksize: 

UNSIGNED32 ; 

—  task 

stack  size 

priority : 

TASK_PRI; 

—  task 

priority 

attributes : 

UNSIGNED32; 

—  task 

flags 

entry_point : 

ADDRESS; 

—  task 

entry  point 

mode: 

TASK_MODE; 

—  task 

initial  mode 

arg: 

UNSIGNED32 ; 

—  task 

argument 

end  RECORD; 

—  Driver  description  record 


type  DRIVER  INFO  is  record 


init: 
open: 
close : 
read: 
write : 
cntrl: 
reserved 1 : 
reserved2 : 
end  record; 


ADDRESS; 

address; 

address; 

address; 

address; 

address; 

UNSIGNED32; 

UNSIGNED32; 


—  initialization  procedure 

—  open  request  procedure 

—  close  request  procedure 

—  read  request  procedure 

—  write  request  procedure 

—  control  request  procedure 

—  reserved  for  RTEMS 

—  reserved  for  RTEMS 


optional  task  related  extensions 

tcreate  user  extension 
tstart  user  extension 
trestart  user  extension 


type  EXT_INFO  is  record 
tcreate:  ADDRESS; 

tstart:  ADDRESS; 

trestart:  ADDRESS; 


tdelete : 
tswitch: 
taskexitted: 
fatal : 
end  record; 


ADDRESS; 

ADDRESS; 

ADDRESS; 

ADDRESS; 


—  tdelete  user  extension 

—  tswitch  user  extension 

—  task  exitted  user  extension 

—  fatal  user  extension 


type  EXT_TBL_PTR  is  access  EXT  INFO; 


Multiprocessor  communications  address  record 


initialization  procedure 
get  packet  procedure 
return  packet  procedure 
packet  send  procedure 
packet  receive  procedure 


type  MPCI_TBL_PTR  is  access  MPCI_INFO; 
—  Multiprocessor  configuration  table 


type  MPCI  INFO  is  record 


init : 
getpkt : 
retpkt : 
send: 
receive : 
end  record; 


ADDRESS; 

ADDRESS; 

ADDRESS; 

ADDRESS; 

ADDRESS; 


type  MP_INFO  is 
node : 

max_nodes : 
max_gobjects: 
max_proxies : 
Mpci_tbl : 
end  record; 


record 

UNSIGNED 16 ; 
UNSIGNED16; 
UNSIGNED32 ; 
UNSIGNED32 ; 
MPCI  TBIi  PTR; 


—  local  node  number 

—  number  nodes  in  system 

—  maximum  global  objects 

—  maximum  proxies 

—  MPCI  table 


type  MP_TBL_PTR  is  access  MP_INFO; 
—  Configuration  table 


type  CONFIG  INFO  is  record 


exec_ram : 
ram_size : 
max_tasks : 
max_semaphores 
max_timers : 
max_queues : 
max_messages : 
max_region8 : 
max_partition8 
max_dpmems : 
ms_tick: 
tslice : 


num_itasks : 
Itasks_tbl : 
num  devices: 


UNSIGNED32; 
UNSIGNED32; 
UNSIGNED16; 
UNSIGNED 16 ; 
UNSIGNED 16; 
UNSIGNED 16; 
UNSIGNED16; 
UNSIGNED 16; 
UNSIGNED 16; 
UNSIGNED 16; 
UNSIGNED16; 
UNSIGNED 16; 
UNSIGNED32; 
ADDRESS; 
UNSIGNED32; 


—  rtems  Workspace 

—  RTEMS  Workspace  size 

—  max  number  tasks 

—  max  number  semaphores 

—  max  number  timers 

—  max  number  queues 

—  max  number  messages 

—  max  number  regions 

—  max  number  partitions 

—  max  number  dp  memory  areas 

—  ms  in  a  tick 

—  ticks  in  a  time-slice 

—  number  of  user  init  tasks 

—  init  task  table 

—  number  of  device  drivers 
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—  device  driver  table 

—  extension  table 

—  MP  config  table 


Drv_tbl s  ADDRESS ; 

Ext_tb 1 :  EXT_TBL_PTR ; 

Mp_tb 1 :  MP_TBL_PTR ; 

end  record; 

type  CONFIG_TBL_PTR  is  access  CONFIG  INFO; 

—  Unchecked_conversions  to  generate  RTEMS  NULL  pointers 

function  U32_TO_EXTTBL  is  new 

UNCHECKED_CONVERSION (  UNSIGNED32,  EXT_TBL_PTR  ); 
function  u32_TO_HPCl  is  new 

UNCHECKED_CONVERSION(  UNSIGNED32,  MPCI_TBL_PTR  ); 
function  u32_TO_MP  is  new 

UNCHECKED_CONVERSION(  UNSIGNED32,  MP_TBL_PTR  ); 

—  Null  constants  (after  record  definitions  in  ADA) 

NULL_PACKET ;  constant  ADDRESS:®  ADDR(  0  ); 

NULL_DP_ADDRESS :  constant  ADDRESS:®  ADDR(  0  ); 

NULL_TASK:  constant  ADDRESS:®  ADDR(  0  ); 

NULL_ASR:  constant  ADDRESS:®  ADDR(  0  ); 

NULL_DRIVER:  constant  ADDRESS:®  ADDR(  0  ); 

NULLEXTENSION :  constant  ADDRESS : =  ADDR(  0  ); 

NULL_DRIVER_TABLE :  constant  ADDRESS:®  ADDR(  0  ); 

NULL_ITASKS_TABLE :  constant  ADDRESS:®  ADDR(  0  ); 

NOLL_EXT_TABLE:  constant  EXT_TBL_PTR : =  U32_TO_EXTTBL(  0  ); 

NULL_MPCI_TABLE:  constant  MPC I_TBL_PTR : ®  U32_TO_MPCI(  0  ); 

NULL_MP_TABLE :  constant  MP_TBL_PTR:=  U32_TO_MP(  0  ); 

—  Signal  Manager  Directives 

procedure  as_catch(  asraddr:  in  ADDRESS;  mode:  in  TASK_MODE; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  as_catch  ); 
pragma  Linkname  (  as_catch,  "RTEMS  as_catch"  ); 


procedure  as_send(  tid:  in  OBJ_ID;  signal:  in  SIGNAL_SET; 

status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  as_send  ); 
pragma  Linkname  (  as_send,  "RTEMS  as  send"  ) ; 


—  10  Manager  Directives 

procedure  de_close(  dev:  in  UNSIGNED32;  argp:  in  ADDRESS; 

rval:  out  UNSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_close  ); 
pragma  Linkname  (  de_close,  "RTEMS  de  close"  ) ; 


S-55 


procedure  de_cntrl(  dev:  in  UNSIGNED32 ;  argp:  in  ADDRESS; 

rval:  out  UMSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_cntrl  ) ; 
pragma  Linkname  (  de_cntrl,  "RTEMS_de_cntrl"  ); 

procedure  de_init<  dev:  in  UNSIGNED32;  argp:  in  ADDRESS; 

rval:  out  UNSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_init  ); 
pragma  Linkname  (  de_init,  "RTEMS_de_init"  ); 

procedure  de_open(  dev:  in  UNSIGNED32;  argp:  in  ADDRESS; 

rval:  out  UNSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_open  ); 
pragma  Linkname  (  de_open,  "RTEMS _ de_openH  ) ; 

procedure  de_read(  dev:  in  UNSIGNED32;  argp:  in  ADDRESS; 

rval:  out  UNSIGHED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_read  ); 
pragma  Linkname  (  de_read,  "RTEMS_de_read"  ) ; 

procedure  de_write(  dev:  in  UNSIGNED32;  argp:  in  ADDRESS; 

rval:  out  UNSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  de_write  ); 
pragma  Linkname  (  de_write,  "RTEMS_de_write"  ); 

—  Dual -Ported  Memory  Manager  Directives 

procedure  dp_create(  name:  in  OBJ_NAME;  intaddr,  extaddr:  in  ADDRESS; 

length:  in  UNSIGNED32;  dpid:  out  OBJ_ID; 
status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  dp_create  ); 
pragma  Linkname  (  dp_create,  "RTEMS_dp_create"  ); 

procedure  dp_ident(  name:  in  OB J_NAME ;  dpid:  out  OBJ_lD; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  dp_ident  ); 
pragma  Linkname  (  dp_ident,  "RTEMS_dp_identH  ); 

procedure  dp_delete(  dpid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  dp_delete  ); 

pragma  Linkname  (  dp_delete,  "RTEMS_dp_delete"  ); 


procedure  dp_2internal (  dpid:  OBJ_ID;  external:  in  ADDRESS; 

internal:  out  ADDRESS;  status:  out  DIR__STATUS) ; 
pragma  Interface  (  assembly,  dp_2internal  ); 
pragma  Linkname  (  dp_2internal,  "RTEMS_dp_2internal"  ); 

procedure  dp_2external{  dpid:  OBJ_ID;  internal:  in  ADDRESS; 


S-56 


external:  out  ADDRESS;  status :  out  DIR_STATUS); 
pragma  Interface  (  assembly,  dp_2external  ); 
pragma  Linkname  (  dp_2external ,  "RTEMS_dp_2external"  ); 

—  Event  Manager  Directives 

procedure  ev_receive(  eventin:  EVENT_SET ;  options:  in  UNSIGNED32; 

timeout:  in  INTERVAL;  eventout:  out  EVENTSET; 
status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  evreceive  ); 
pragma  Linkname  (  ev_receive,  "RTEMS_ev_receive"  ); 

procedure  ev_send(  tid:  in  OBJID;  event:  in  EVENTSET; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  ev_Bend  ); 
pragma  Linkname  (  ev_send,  "RTEMSevsend”  ) ; 

—  Initialization  Manager  Directives 

procedure  init_exec(  conftbl:  in  CONFIGTBLPTR  ); 

pragma  interface  (  assembly,  init_exec  ); 

pragma  Linkname  (  init_exec,  "RTEMS_init_exec"  ); 

—  Partition  Manager  Directives 

procedure  pt_create<  name:  in  OBJ_NAME;  paddr:  in  ADDRESS; 

length,  bsize:  in  UNSIGNED32 ;  attr:  in  UNSIGNED32; 
ptid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  pt_create  ); 
pragma  Linkname  (  pt_create,  "RTEMS_pt_create"  ); 

procedure  pt_delete(  ptid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  pt_delete  ); 

pragma  Linkname  (  pt_delete,  "RTEMS_pt_delete"  ); 

procedure  pt_getbuf(  ptid:  in  OBJ_ID;  bufaddr:  out  ADDRESS; 

status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  pt_getbuf  ); 
pragma  Linkname  (  pt_getbuf,  "RTEMS_pt_getbuf "  ); 

procedure  pt_ident(  name:  in  OBJJNAME;  node:  in  UNSIGNED32; 

ptid:  out  OBJ_ID;  status:  out  DIR__STATUS  ); 
pragma  interface  (  assembly,  pt_ident  ); 
pragma  Linkname  (  pt_ident,  "RTEMS_j?t_ident"  ); 

procedure  pt_retbuf(  ptid:  in  OBJ_ID;  bufaddr:  in  ADDRESS; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  pt_retbuf  ); 
pragma  Linkname  (  pt__retbuf,  "RTEMS_pt_retbuf "  ); 
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—  Message  Manager  Directives 

procedure  q_broadcast(  qid:  in  OBJ_lD;  buffer:  in  ADDRESS; 

count:  out  UNSIGNED32;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  q_broadcast  ); 
pragma  Linkname  (  q_broadcast,  "RTEMS_q_broadcast"  ) ; 

procedure  q_create(  name:  in  OBJ_NAME;  count:  in  UNSIGNED32; 

attr :  in  UNSIGNED32;  qid:  out  OBJ_ID; 
status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  q_create  ); 
pragma  Linkname  (  q_create,  "RTEMS_q_create"  ); 

procedure  q_delete{  qid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  q_delete  ); 
pragma  Linkname  (  q_delete,  "RTEMS_q_delete"  ); 

procedure  q_flush(  qid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  q_flush  ); 
pragma  Linkname  (  q_flush,  "RTEMS_q_f lush"  ); 

procedure  q_ident(  name:  in  OBJ_NAME;  node:  in  UNSIGNED32; 

qid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  q_ident  ) ; 
pragma  Linkname  (  q_ident,  "RTEMS_q_ident"  ); 

procedure  q_receive(  qid:  in  OBJ_ID;  buffer:  in  ADDRESS; 

options:  in  UNSIGNED32;  timeout:  in  INTERVAL; 
status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  q_receive  ); 
pragma  Linkname  (  q_receive,  "RTEMS_q_receive"  ); 

procedure  q_send(  qid:  in  OBJ_ID;  buffer:  in  ADDRESS; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  q_send  ); 
pragma  Linkname  (  q_send,  "RTEMS_q_send"  ) ; 

procedure  q_urgent(  qid:  in  OBJ_ID;  buffer:  in  ADDRESS; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  q_urgent  ) ; 
pragma  Linkname  (  q_urgent,  "RTEMS_q_urgent"  ); 


—  Region  Manager  Directives 

procedure  rn_create(  name:  in  OB J_NAME ;  paddr:  in  ADDRESS; 

length,  pagesize:  in  UNSIGNED32; 
attr:  in  UNSIGNED32;  rnid:  out  OBJ_ID; 
status :  out  DIR  STATUS  ) ; 
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pragma  interface  (  assembly,  rn_create  ); 
pragma  Linkname  (  rn_create,  " RTEMS_r n_c r e at e "  ); 

procedure  rn_delete(  rnid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  rn_delete  ); 

pragma  Linkname  (  rn_delete,  "RTEMS_rn_delete"  ); 

procedure  rn_getseg(  rnid:  in  OBJ_ID;  size,  options:  in  UNSIGNED32; 

timeout:  in  INTERVAL;  segaddr:  out  ADDRESS; 
status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  rn_getseg  ) ; 
pragma  Linkname  (  rn_getseg,  "RTEMS_rn_getseg"  ); 

procedure  rn_ident(  name:  in  OB J_NAME ;  rnid:  out  OBJ_ID; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  rn_ident  ); 
pragma  Linkname  (  rn_ident,  ” RTEMS_r n_ident "  ); 

procedure  rn_retseg(  rnid:  in  OBJ_ID;  segaddr:  in  ADDRESS; 

status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  rn_retseg  ); 
pragma  Linkname  (  rn_retseg,  "RTEMS_rn_retsegH  ) ; 

—  semaphore  Manager  Directives 

procedure  sm_create(  name:  OBJ_NAME;  count:  in  UNSIGNED32; 

attr :  in  UNSIGNED32;  smid:  out  obj_id; 
status :  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  sm_create  ) ; 
pragma  Linkname  (  sm_create,  "RTEMS_sm_create"  ); 

procedure  sm_delete(  smid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  sm_delete  ) ; 

pragma  Linkname  (  sm_delete,  HRTEMS_sm_delete"  ); 

procedure  sm_ident(  name:  in  OB J_NAME ;  node:  in  UNSIGNED32; 

smid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  sm_ident  ); 
pragma  Linkname  (  sm_ident,  "RTEMS_sm_ident"  ); 

procedure  sm_p(  smid:  in  OBJ_ID;  options:  in  UNSIGNED32; 

timeout:  in  INTERVAL;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  sm_p); 
pragma  Linkname  (  sm_p,  " RTEMS_sm_p "  ); 

procedure  sm_v(  smid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  sm_v  ); 
pragma  Linkname  (  sm_v,  "RTEMS_sm_v"  ) ; 

—  Task  Manager  Directives 
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procedure  t_create<  name:  in  OB J_NAME ;  priority:  in  TASK_PRI; 

stksize:  in  UNSIGNED32;  mode:  in  TASK_MODE; 
attr :  in  UNSIGNED32;  tid:  out  OBJ_ID; 
status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_create  ); 
pragma  Linkname  (  t_create,  "RTEMS_t_create"  ); 

procedure  t_delete(  tid:  in  0BJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_delete  ); 
pragma  Linkname  (  t_delete,  "RTEMS_t_delete"  ); 

procedure  t_getnote(  tid:  in  OBJ_ID;  notepad:  in  UNSIGNED32; 

note:  out  UNSIGNED32 ;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_getnote  ); 
pragma  Linkname  (  t_getnote,  "RTEMS_t_getnote"  ); 

procedure  t_ident(  name:  in  OB J_NAME ;  node:  in  UNSIGNED32; 

tid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_ident  ); 
pragma  Linkname  (  t_ident,  "RTEMS_t_ident"  ); 

procedure  t_mode(  mode:  in  TASK_MODE;  mask:  in  UNSIGNED32; 

pmode:  out  TASK_MODE;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_mode  ) ; 
pragma  Linkname  (  tmode,  "RTEMS_t_mode"  ); 

procedure  t_restart(  tid:  in  OBJ_ID;  arg:  in  UNSIGNED32; 

status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_restart  ); 
pragma  Linkname  (  t_restart,  "RTEMS_t_re start"  ); 

procedure  t_resume(  tid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_resume  ); 
pragma  Linkname  (  t_resume,  "RTEMS_t_resume"  ); 

procedure  t_setpri(  tid:  in  OBJ_ID;  priority:  in  TASK_PRI; 

ppriority:  out  TASK_PRI;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_setpri  ); 
pragma  Linkname  (  t_setpri,  "RTEMS  t_setpri"  ); 


procedure  t_setnote(  tid:  in  0BJ_ID;  notepad,  note:  in  UNSIGNED32; 

status :  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  t_setnote  ); 
pragma  Linkname  (  t_setnote,  "RTEMS_t_setnote"  ); 

procedure  t  start (  tid: in  OBJ  ID;  saddr:  in  ADDRESS;  arg: in  UNSIGNED32; 
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status ;  out  DIR_STATUS  ) ; 
pragma  Interface  (  assembly,  t_start  ); 
pragma  Linkname  (  t_start,  "RTEMS_t_start"  ) ; 

procedure  t_suspend(  tid:  in  OBJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  t_suspend  ); 

pragma  Linkname  (  t_suspend,  HRTEMS_t_suspend"  ) ; 

—  Time  Manager  Directives 

procedure  tm_cancel{  tmid:  in  0BJ_ID;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  tm_cancel  ); 

pragma  Linkname  (  tm_cancel,  HRTEMS_tm_cancel"  ); 

procedure  tm_evafter(  ticks:  in  INTERVAL;  event:  in  EVENT_SET; 

tmid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_evafter  ); 
pragma  Linkname  (  tm_evafter,  " RTEMS_tm  evafter"  ); 

procedure  tm_evevery(  ticks:  in  INTERVAL;  event:  in  EVENT_SET; 

tmid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_evevery  ); 
pragma  Linkname  (  tm_evevery,  "RTEMS_tm_evevery"  ); 

procedure  tm_evwhen(  timebuf:  in  TIME_PTR;  event:  in  EVENT_SET ; 

tmid:  out  OBJ_ID;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_evwhen  ); 
pragma  Linkname  (  tm_evwhen,  "RTEMS_tm_evwhen"  ) ; 

procedure  tm_get(  timebuf:  in  TIME_PTR;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_get  ); 
pragma  Linkname  (  tm_get,  "RTEMS_tm_get"  ); 

procedure  tm_set(  timebuf:  in  TIME_PTR;  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_set  ); 
pragma  Linkname  (  tm_set,  "RTEMS_tm_set"  ) ; 

procedure  tm_tick(  status:  out  DIR_STATUS  ); 
pragma  Interface  (  assembly,  tm_tick  ); 
pragma  Linkname  (  tm_tick,  "RTEMS_tm_tick"  ) ; 

procedure  tm_wkafter(  ticks:  in  INTERVAL;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  tm_wkafter  ); 

pragma  Linkname  (  tm_wkafter,  "RTEMS_tm_wkafter"  ); 

procedure  tm_wkwhen(  timebuf:  in  TIME_PTR;  status:  out  DIR_STATUS  ); 

pragma  Interface  (  assembly,  tm_wkwhen  ); 

pragma  Linkname  (  tm_wkwhen,  "RTEMS_tm_wkwhen"  ); 

—  Error  Manager  Directives 
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procedure  k_fatal(  errcode:  in  UNSIGNED32  ); 
pragma  interface  (  assembly,  k_fatal  ); 
pragma  Linkname  (  k_fatal,  "RTEMS_k_fatal"  ); 

—  Multi-Processing  Directives 

procedure  mp_announce ; 

pragma  Interface  (  assembly,  mp_announce  ); 
pragma  Linkname  (  mp_announce,  "RTEMS  mp_announce"  ) 

end  RTEMS; 
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